home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / CHOPPER-BOPP.SDA / CHOPPER BOPPER (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.7 KB  |  142 lines
  1. 0 REM *********************************
  2. 1 REM * CHOPPER BOPPER BY THEODORIAN  *
  3. 2 REM *********************************
  4. 3 IFFL=1THEN11 : Q-LINK # 51  11/87
  5. 4 POKE53280,15:POKE53281,15
  6. 5 PRINT"[147]      B O P P E R    C H O P P E R      [152]"
  7. 6 PRINT"  TWO PLAYER GAME. TWO JOYSTICKS, MOVES   UP AND DOWN. FIREBUTTON FIRES.
  8. 7 [153]"  EACH PLAYER TRIES TO SHOOT DOWN HIS     OPPONENT.
  9. 8 PRINT"  WHEN ROUND OVER JUST WAIT FOR A RESET."
  10. 9 PRINT"          PRESS <SPACE> TO PLAY":POKE198,0:WAIT198,1
  11. 10 FL=1:LOAD"CHOPPER ROUTINE",8,1
  12. 11 PRINT"[147][150]             CHOPPER BOPPER":POKE53280,0:POKE53281,0
  13. 12 REM *** SOUND SET-UP ***
  14. 13 POKE54287,68:POKE54286,149:POKE54291,24:POKE54292,129:POKE54296,15
  15. 15 POKE54284,24:POKE54285,129:POKE54280,1:POKE54279,12
  16. 16 POKE54273,134:POKE54272,30:POKE54278,128:POKE54277,64
  17. 20 PRINT"[159]      DEFINING GRAPHIC SPRITES...."
  18. 25 REM *** DEFINE SPRITES ***
  19. 30 B=192:FORA=2040TO2045:POKEA,B:B=B+1:NEXT
  20. 40 FORA=12288TO12670:READB:POKEA,B:NEXT
  21. 50 V=53248
  22. 60 POKEV+39,6:POKEV+40,7:POKEV+41,2:POKEV+42,8:POKEV+43,1:POKEV+44,1:REM COLOR
  23. 70 POKEV,30:POKEV+1,150:POKEV+2,50:POKEV+3,150:REM POSITIONING
  24. 80 POKEV+16,34:REM RIGHT #2
  25. 90 POKEV+21,15:REM TURN ON SPRITES
  26. 110 PRINT"PLAYER #1[158]           PLAYER #2"
  27. 115 PRINT"[129]          HIT ANY KEY TO START"
  28. 116 POKE198,0
  29. 117 GETA$:IFA$<>""THEN119
  30. 118 POKE646,INT(RND(1)*15)+1:PRINT"[145]HIT ANY KEY TO START":GOTO117
  31. 119 PRINT"[147]":FORA=1904TO2023:POKEA+54272,13:POKEA,102:NEXT
  32. 120 FORB=1TO100:A=INT(RND(1)*830)+1064:POKEA+54272,1:POKEA,46:NEXT
  33. 129 REM ML FLAGS & INDICATORS
  34. 130 POKE679,0:POKE680,0:POKE681,0:POKE682,1:POKE683,0:POKE684,15
  35. 140 POKE685,0:POKE686,0:POKE687,0:POKE688,1:POKE689,0:POKE690,15:POKE691,0
  36. 181 POKEV,30:POKEV+1,150:POKEV+2,50:POKEV+3,150:REM POSITIONING
  37. 185 S1=0:S2=0
  38. 190 PRINT"[159]SCORES:   #1=[129]   [157][157][157]"S1TAB(30)"[158]#2=[129]   [157][157][157]"S2
  39. 195 POKE54283,33
  40. 200 SYS49152:IFPEEK(691)=0THEN200
  41. 210 ONPEEK(691)GOTO300,500,300
  42. 299 REM *** PLAYER 1 SHOT DOWN ***
  43. 300 POKE54290,129:POKE54283,32:POKE54276,128
  44. 305 FORA=PEEK(V+1)TO225:POKEV+1,A:NEXT
  45. 310 POKE(V+21),PEEK(V+21)OR16:POKEV+9,224:POKEV+8,PEEK(V):A=PEEK(V)-10
  46. 320 FORB=15TO2STEP-.1:POKE54296,B:POKEV+43,INT(RND(1)*15)+1
  47. 321 Q1=INT(RND(1)*20)+A:IFQ1<1THENQ1=1
  48. 325 POKEV+8,Q1:NEXTB
  49. 330 S2=S2+1
  50. 340 PRINT""TAB(33)"[129]"S2:POKEV+6,0:POKEV+7,0:POKEV+4,255:POKEV+5,0
  51. 341 POKE680,0:POKE686,0
  52. 345 FORB=1TO4
  53. 350 FORB=1TO30:A=PEEK(V)-10:POKEV+8,INT(RND(1)*20)+A:POKEV+43,INT(RND(1)*15)+1
  54. 370 NEXTB
  55. 390 POKE54290,128:POKE54296,15
  56. 400 POKEV+21,PEEK(V+21)AND255-16
  57. 410 FORA=1TO3000:NEXTA
  58. 420 POKEV+1,150:POKE691,0
  59. 430 IFS2=10THENW$="[158]PLAYER #2":GOTO700
  60. 440 GOTO190
  61. 499 REM *** PLAYER 2 SHOT DOWN ***
  62. 500 POKE54290,129:POKE54283,32:POKE54276,128
  63. 505 FORA=PEEK(V+3)TO225:POKEV+3,A:NEXT
  64. 510 POKE(V+21),PEEK(V+21)OR32:POKEV+11,224:POKEV+10,PEEK(V+2):A=PEEK(V+2)-10
  65. 520 FORB=15TO2STEP-.1:POKE54296,B:POKEV+44,INT(RND(1)*15)+1
  66. 521 Q2=INT(RND(1)*20)+A:IFQ2<1THENQ2=1
  67. 525 POKEV+10,Q2:NEXTB
  68. 530 S1=S1+1
  69. 540 PRINT""TAB(13)"[129]"S1:POKEV+4,255:POKEV+5,0:POKEV+6,0:POKEV+7,0
  70. 545 POKE680,0:POKE686,0
  71. 550 FORB=1TO4
  72. 560 A=PEEK(V+2)-10
  73. 561 Q2=INT(RND(1)*20)+A:IFQ2<1THENQ2=1
  74. 563 POKEV+10,Q2:POKEV+44,INT(RND(1)*15)+1
  75. 565 NEXTB
  76. 580 REM
  77. 590 POKE54290,128:POKE54296,15
  78. 600 POKEV+21,PEEK(V+21)AND255-32
  79. 610 FORA=1TO3000:NEXTA
  80. 620 POKEV+3,150:POKE691,0
  81. 630 IFS1=10THENW$="PLAYER #1":GOTO700
  82. 640 GOTO190
  83. 699 REM *** A WINNER ***
  84. 700 PRINT"[153]CONGRATULATIONS ";W$
  85. 710 PRINT"HIT ANY KEY TO PLAY AGAIN"
  86. 715 POKE198,0
  87. 720 GETB$:IFB$<>""THEN735
  88. 730 POKE646,INT(RND(1)*15)+1:PRINT"[145]HIT ANY KEY TO PLAY AGAIN":GOTO720
  89. 735 PRINT"    .            .       "
  90. 736 PRINT"    .           .     .  "
  91. 740 GOTO130
  92. 800 END
  93. 899 REM SPRITE DATA
  94. 900 DATA255,255,255,000,024,000,000,127
  95. 901 DATA128,000,120,192,000,248,096,000
  96. 902 DATA248,048,099,255,248,159,255,252
  97. 903 DATA159,255,254,159,255,254,096,112
  98. 904 DATA112,000,112,118,003,255,252,000
  99. 905 DATA000,000,000,000,000,000,000,000
  100. 906 DATA000,000,000,000,000,000,000,000
  101. 907 DATA000,000,000,000,000,000,000,255
  102. 908 DATA255,255,255,000,024,000,001,254
  103. 909 DATA000,003,030,000,006,094,000,012
  104. 910 DATA223,128,025,223,134,048,031,249
  105. 911 DATA127,255,249,127,255,249,006,012
  106. 912 DATA006,102,012,000,063,255,192,000
  107. 913 DATA000,000,000,000,000,000,000,000
  108. 914 DATA000,000,000,000,000,000,000,000
  109. 915 DATA000,000,000,000,000,000,000,255
  110. 916 DATA000,000,000,000,000,000,000,000
  111. 917 DATA000,000,000,000,000,000,000,000
  112. 918 DATA000,000,000,000,000,252,000,000
  113. 919 DATA199,224,000,252,000,000,000,000
  114. 920 DATA000,000,000,000,000,000,000,000
  115. 921 DATA000,000,000,000,000,000,000,000
  116. 922 DATA000,000,000,000,000,000,000,000
  117. 923 DATA000,000,000,000,000,000,000,255
  118. 924 DATA000,000,000,000,000,000,000,000
  119. 925 DATA000,000,000,000,000,000,000,000
  120. 926 DATA000,000,000,000,000,007,224,000
  121. 927 DATA252,096,000,007,224,000,000,000
  122. 928 DATA000,000,000,000,000,000,000,000
  123. 929 DATA000,000,000,000,000,000,000,000
  124. 930 DATA000,000,000,000,000,000,000,000
  125. 931 DATA000,000,000,000,000,000,000,000
  126. 932 DATA000,241,128,025,251,192,060,251
  127. 933 DATA224,030,125,240,015,062,242,007
  128. 934 DATA159,247,195,207,239,227,222,223
  129. 935 DATA119,190,254,063,253,124,030,218
  130. 936 DATA184,061,187,092,090,123,174,231
  131. 937 DATA247,215,255,255,255,000,000,000
  132. 938 DATA000,000,000,000,000,000,000,000
  133. 939 DATA000,000,000,000,000,000,000,255
  134. 940 DATA001,143,000,003,223,152,007,223
  135. 941 DATA060,015,190,120,079,124,240,239
  136. 942 DATA249,224,247,243,195,251,123,199
  137. 943 DATA127,125,238,062,191,252,029,091
  138. 944 DATA120,058,221,188,117,222,090,235
  139. 945 DATA239,231,255,255,255,000,000,000
  140. 946 DATA000,000,000,000,000,000,000,000
  141. 947 DATA000,000,000,000,000,000,000,255
  142.